      SUBROUTINE CHARIO
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     SUBROUTINE CHARIO                                                C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      PARAMETER(LRECL=256,LIND=100)
      CHARACTER*10 IXNAME(LIND),CHAR(450)
      COMMON/INDX30/IXNMBR(LIND),IXLAST,IEOF,NREC1,X(LRECL)
      COMMON/JNDX30/ IXNAME
      COMMON/IDENT/CHAR
C
      ENTRY CHARIN
C
      READ(30,REC=2) (CHAR(I),I=1,256)
      READ(30,REC=3) (CHAR(I),I=257,450)
      RETURN
C
      ENTRY CHAROU
C
      WRITE(30,REC=2) (CHAR(I),I=1,256)
      WRITE(30,REC=3) (CHAR(I),I=257,450)
      RETURN
      END
